home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992…ugust: Hack to the Future / ADC Developer CD (1992-08) (''Hack To The Future'')_iso / Dev.CD 199208.iso / Periodicals / develop / develop 7 code / QuickTime / SimpleInMovies / SimpleInWindows.c < prev   
Encoding:
C/C++ Source or Header  |  1992-01-13  |  11.6 KB  |  374 lines  |  [TEXT/MPS ]
  1. /*     
  2. SimpleInMovies
  3.  
  4. Sample programs demonstrating how to open and display
  5. QuickTime™ Movies.
  6.  
  7. SimpleInWindows.c file contains the code for the routines 
  8. having to do with creating closing a maintaining movie windows.
  9.  
  10. Guillermo A. Ortiz
  11. Macintosh Developer Technical Support
  12.  
  13. 08/07/91 Created the file to move in the window calls. Also added code to save
  14. the movie on closing if changes have been made.
  15.  
  16. 08/22/91 -- Added the code to accomodate the fact that the bounds for the controller now enclose the whole movie.
  17. 11/19/91 -- Fixed movie saving code to save correctly after saving as...
  18. 11/21/91 -- Finished the flattening code including the progress stuff.
  19. */
  20.  
  21. #include <SimpleInMovie.h>
  22.  
  23. extern Component movieControllerComponent;
  24. extern long gFlattenMovies;
  25.  
  26. /* ************************************************************************* */
  27. /* Procedures that handle window stuff */
  28.  
  29. Boolean CreateOneWindow(Movie, StandardFileReply, short, short);
  30. Boolean IsAppWindow(WindowPtr);
  31. Boolean    DisposeAllWindows(void);
  32. Boolean    DisposeOneWindow(WindowPtr, short);
  33. Boolean SaveMovie( DocRecHandle, short);
  34. Boolean DoSave(short);
  35. OSErr PutMovieToFile(DocRecHandle, Boolean);
  36.  
  37. extern DialogPtr GetCenteredDialog(short, WindowPtr, WindowPtr);
  38. extern void OutlineDialogItem(DialogPtr, short);
  39. extern pascal Boolean    keyEquivFilter(DialogPtr, EventRecord *, short *);
  40. extern Boolean DisplayPutFile(StandardFileReply *);
  41. extern Rect    CenterWindow(WindowPtr, WindowPtr);
  42. extern OSErr FixMovieWindow(WindowPtr window);
  43.  
  44. extern short gUntitledCount;
  45.  
  46. /* opens a window for the movie and the record that keeps the movie playing
  47.    in the window as well as the instance for the player */
  48. Boolean CreateOneWindow(moov, fileInfo, fileResNum, moovResID)
  49. Movie moov;
  50. StandardFileReply fileInfo;
  51. short fileResNum;
  52. {
  53. WindowPtr        myWindow;
  54. Rect            moovBox;
  55. DocRecHandle    DocHandle;
  56. MovieController localController;
  57. Point where;
  58. OSErr err;
  59. Boolean emptyBox = false;
  60.  
  61. /*     Get our display window.
  62. */
  63.     myWindow = GetNewCWindow(windowID, nil, (WindowPtr) -1); 
  64.     
  65.     if ( myWindow && (DocHandle = (DocRecHandle)NewHandle(sizeof(DocRec))) ) {     /* get storage for            */
  66.       (*DocHandle)->wMovie = moov;                    /* movie                    */
  67.       (*DocHandle)->wFileInfo.sfr = fileInfo;            /* file                        */
  68.       (*DocHandle)->wFileInfo.resFile = fileResNum;
  69.       (*DocHandle)->wFileInfo.moovID = moovResID;
  70.       if ( localController = OpenComponent((Component)movieControllerComponent) ) { /* and component    */
  71.         (*DocHandle)->wPlayer = localController;    /* OpenComponent can move memory so it may not a good idea to dereference the handle in the same line */
  72.         SetWRefCon(myWindow, (long)DocHandle);
  73.         
  74.         /* now size window adding some space at the bottom for controller */
  75.         GetMovieBox(moov,&moovBox); /* Use the movie box to resize window */
  76.         
  77.         where.h = moovBox.left;
  78.         where.v = moovBox.top;
  79.  
  80.         if (err = MCNewAttachedController((*DocHandle)->wPlayer, moov, myWindow, where) )
  81.           DebugStr("\pError at PTNewAttachedController");
  82.                   
  83.         /* now we resize the window according to the controller settings and the
  84.            dimensions of the movie.
  85.         */
  86.         FixMovieWindow(myWindow);
  87.         
  88.         SetWTitle(myWindow,fileInfo.sfFile.name);
  89.             
  90.         SetPort(myWindow);
  91.         
  92.         ShowWindow(myWindow);
  93.         SelectWindow(myWindow);
  94.         
  95.         if (err = MCDoAction((*DocHandle)->wPlayer, mcActionPlay, (Ptr)0x00010000) )
  96.           DebugStr("\pError at MCGetControllerBoundsRect");
  97.  
  98.         return true;
  99.       }
  100.     }
  101.     /* something failed so we have to get rid of the window */
  102.     DisposeWindow(myWindow);
  103.     return(false);
  104. }
  105.  
  106. /* returns true if all windows have been closed */
  107. Boolean    DisposeAllWindows(void)
  108. {
  109.     WindowPtr    window;
  110.     
  111.     while (window = *(WindowPtr *)WindowList) {
  112.  
  113.         /* While we have a front window, try closing it. */
  114.  
  115.         if (!DisposeOneWindow(window, quitCommand)) return(false);
  116.     }
  117.  
  118.     return(true);
  119. }
  120.  
  121.  
  122. /* Closes one window */
  123.  
  124. Boolean    DisposeOneWindow(window, command)
  125. WindowPtr window;
  126. short command;
  127. {
  128.     DocRecHandle    wHndl;
  129.  
  130.     if (IsAppWindow(window)) {
  131.         if (wHndl = (DocRecHandle)GetWRefCon(window)) {     /* Get the storage handle */
  132.           if (SaveMovie(wHndl, command)   )
  133.             return (false);     /* who knows the user hit cancel maybe */
  134.  
  135. /*****     MCRemoveMovie goes away.
  136.           MCRemoveMovie((*wHndl)->wPlayer);
  137. */
  138.           CloseComponent((*wHndl)->wPlayer);            /* and player instance        */
  139.           DisposeMovie((*wHndl)->wMovie);                /* and get rid of movie        */
  140.           if ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum != kInvalVRefNum) {
  141.             if (CloseMovieFile((*wHndl)->wFileInfo.resFile) )/* file open, close it        */
  142.               DebugStr("\pCloseMovieFile failed in DisposeOneWindow"); 
  143.           }
  144.           DisposHandle((Handle)wHndl);                    /* and finally the handle    */
  145.         }
  146.     }
  147.     DisposeWindow(window);
  148.     return(true);
  149. }
  150.  
  151. Boolean IsAppWindow(window)
  152. WindowPtr window;
  153. { 
  154.     if (window)
  155.        return (((WindowPeek)window)->windowKind >= userKind);
  156.     else
  157.       return false;
  158. }
  159. /* *************************************************************** */
  160.  
  161. /* checks that there is a movie associated with the front most window
  162.    and tries to save it; this is used when the save or save as commands
  163.    are executed.
  164.    
  165. */
  166. Boolean DoSave(command)
  167. short command;
  168. {
  169. WindowPtr window;
  170. DocRecHandle wHndl;
  171.  
  172.     if (window = FrontWindow()) { /* don't bother if no movies to play */
  173.       if (IsAppWindow(window) && (wHndl = (DocRecHandle)GetWRefCon(window)) ) {
  174.         return SaveMovie(wHndl, command);
  175.       }
  176.     }
  177. }
  178.  
  179. /* checks is the movie has to be saved and depending on the command that
  180.    originated the requests saves the movie.
  181.    The next procedures come from the DTS sample MacShell, check it out for more details or
  182.    better comments.    Note though that I have modified the code to accomodate the immediate
  183.    needs, don't blame MacShell.                                    */
  184.    
  185. Boolean SaveMovie( wHndl, command)
  186. DocRecHandle wHndl;
  187. short command;
  188. {
  189.     Str255                closeOrQuit;
  190.     short                item;
  191.     StandardFileReply    reply;
  192.     OSErr                err;
  193.     DialogPtr            saveDialog;
  194.  
  195.     if (command != saveMovieAs) {                        /* If regular save... */
  196.         if (!HasMovieChanged((*wHndl)->wMovie))                /* If movie clean...   */
  197.             return(noErr);                                /* Consider it saved. */
  198.     }
  199.  
  200.     if ((command == closeMovie) || (command == quitCommand)) {
  201.         /* If implicit save... */
  202.  
  203.         GetIndString(closeOrQuit, rMiscStrings,
  204.                      (command == closeMovie) ? sClosing : sQuitting);
  205.         ParamText((*wHndl)->wFileInfo.sfr.sfFile.name, closeOrQuit, nil, nil);
  206.  
  207.         saveDialog = GetCenteredDialog(rYesNoCancel, nil, (WindowPtr)-1L);
  208.  
  209.         if (saveDialog) {
  210.             OutlineDialogItem(saveDialog, kSaveYes);
  211.             ModalDialog((ModalFilterProcPtr)keyEquivFilter, &item);
  212.             DisposDialog(saveDialog);
  213.         }
  214.         else
  215.             item = kSaveYes;
  216.  
  217.         if (item != kSaveYes) {
  218.             err = noErr;
  219.             if (item == kSaveCanceled) err = userCanceledErr;
  220.             return(err);
  221.         }
  222.     }
  223.  
  224.     if (((command == saveMovieAs) ||
  225.         ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum == kInvalVRefNum) )) {
  226.         /* Prompt with SFGetFile if doing a Save As or have never saved before. */
  227.  
  228.         reply = (*wHndl)->wFileInfo.sfr;
  229.         
  230.         if (!DisplayPutFile(&(reply)))
  231.             return(userCanceledErr);
  232.                 /* User canceled the save. */
  233.  
  234.         if ((*wHndl)->wFileInfo.sfr.sfFile.vRefNum != kInvalVRefNum) {
  235.             if (err = CloseMovieFile((*wHndl)->wFileInfo.resFile) )
  236.               DebugStr("\pCloseMovieFile failed in SaveMovie"); 
  237.                 /* Close the old file.  Don't respond to any error here because
  238.                 ** the user may be trying to do a save-as because their old file
  239.                 ** is bad.  If we fail to close the old file, and then respond
  240.                 ** to the error, the user won't get the opportunity to save
  241.                 ** their document to a new file.
  242.                 */
  243.         }
  244.         SetWTitle(FrontWindow(),reply.sfFile.name);
  245.         (*wHndl)->wFileInfo.sfr = reply;
  246.         if ( err = PutMovieToFile(wHndl, true) ) {
  247.           reply.sfFile.vRefNum = kInvalVRefNum;
  248.           DebugStr("\pCouldn't create the new file for save as");
  249.         }
  250.     }
  251.     else /* saving into an existing file */
  252.       if (err = PutMovieToFile(wHndl, false) ) {
  253.         (*wHndl)->wFileInfo.sfr.sfFile.vRefNum = kInvalVRefNum;
  254.         return(err);
  255.       }
  256.     
  257.     ClearMovieChanged((*wHndl)->wMovie);
  258.     return(noErr);
  259. }
  260.  
  261. /* The progress proc lets the user know what is going on while a FlattenMovie call
  262.    is being done.
  263. */
  264. pascal OSErr flattenProgressProc(Movie m, short message, short operation, Fixed percent, long refCon)
  265. {
  266. #pragma unused (m)
  267.  
  268. WindowPtr    pDialog;
  269. Fixed        percentFix = 0x00640000;  /* hundred in fixed */
  270. short        percentShort;
  271. Rect        windRect,
  272.             progressRect= {100,20,120,200};
  273. GrafPtr        oldPort;
  274.  
  275.     if (operation != progressOpFlatten)    /* This should only be called for flatten */
  276.       return featureUnsupported;            
  277.     else                                            /* OK this I know about                            */
  278.       switch (message) {
  279.         case movieProgressOpen:
  280.           SetRect(&windRect,20,20,240,200);
  281.           pDialog = NewCWindow(nil,&windRect,"",false, dBoxProc, (WindowPtr)-1L,true,0);
  282.           CenterWindow(pDialog, nil);
  283.           if (pDialog) {
  284.               GetPort(&oldPort);
  285.               ShowWindow(pDialog);
  286.             SetPort(pDialog);
  287.             MoveTo(30,50);
  288.             DrawString("\pFlattening in progress …");
  289.             FrameRect(&progressRect);
  290.               *(WindowPtr *)refCon = pDialog; 
  291.             SetPort(oldPort);
  292.               return noErr;
  293.           }
  294.         break;
  295.         case movieProgressUpdatePercent:
  296.           GetPort(&oldPort);
  297.           SetPort(*(WindowPtr *)refCon);
  298.           percentFix = FixMul(percent, percentFix);
  299.             percentShort = FixRound(percentFix);
  300.           FrameRect(&progressRect);
  301.           InsetRect(&progressRect,2,2);
  302.           progressRect.right = progressRect.left+((progressRect.right - progressRect.left) * percentShort/100);
  303.           PaintRect(&progressRect);
  304.           SetPort(oldPort);                         
  305.           return noErr;
  306.         break;
  307.         case movieProgressClose:
  308.           DisposeWindow(*(WindowPtr *)refCon);
  309.           return noErr;
  310.         break;
  311.       }
  312. }
  313.  
  314.  
  315. OSErr PutMovieToFile(wHndl, newFile)
  316. DocRecHandle    wHndl;
  317. Boolean            newFile;
  318. {
  319. OSErr theErr;
  320. short    resFile, 
  321.         resID = 0; /* resource id = 0 tells the MovieToolbox to come up with a number */
  322. DialogPtr flattenDialog;     /* the progress proc stores here its dialog pointer */
  323.  
  324.     resFile = CurResFile();
  325.     if (newFile) {
  326.       if ( gFlattenMovies) {
  327.       
  328.           /* Brackett Flatten movie with SetMovieProgress proc calls so that the user
  329.            gets to know what is going on if the flattening takes too long.
  330.            It is also important to lock the handle containing the movie reference,
  331.            FlattenMovie moves data around and since we are dereferencing the handle
  332.            the pointer we pass could end up pointing to garbage.
  333.         */
  334.         HLock((Handle)wHndl);
  335.         SetMovieProgressProc((*wHndl)->wMovie, flattenProgressProc, (long) &flattenDialog);
  336.  
  337.         FlattenMovie((*wHndl)->wMovie, 0 /* flags */, 
  338.                      &((*wHndl)->wFileInfo.sfr.sfFile), 'TVOD',0,
  339.                      createMovieFileDeleteCurFile /* createMovieFileFlags*/,
  340.                       &resID, nil /* resName */);
  341.  
  342.         HUnlock((Handle)wHndl);
  343.         if (theErr = GetMoviesError())
  344.           DebugStr("\pFlattenMovie failed");
  345.         else
  346.           (*wHndl)->wFileInfo.moovID = resID;        /* remember the moov resource id */
  347.  
  348.         SetMovieProgressProc((*wHndl)->wMovie, nil, 0); /* flattening is done remove proc */
  349.  
  350.         if (theErr = OpenMovieFile( &((*wHndl)->wFileInfo.sfr.sfFile),
  351.                                     &((*wHndl)->wFileInfo.resFile),fsRdWrPerm))
  352.           DebugStr("\pOpenMovieFile failed");
  353.       }
  354.       else /* do not flatten */
  355.         {
  356.           if ( !(theErr = CreateMovieFile(  &((*wHndl)->wFileInfo.sfr.sfFile), 'TVOD',0,createMovieFileDeleteCurFile, 
  357.                                      &((*wHndl)->wFileInfo.resFile), nil) )) {
  358.             if (theErr = AddMovieResource((*wHndl)->wMovie, (*wHndl)->wFileInfo.resFile, 
  359.                                         &resID, nil /* resName */) )
  360.               DebugStr("\pAddMovieResource failed in PutMovieToFile");
  361.             else
  362.              (*wHndl)->wFileInfo.moovID = resID;        /* remember the moov resource id */
  363.           }
  364.           else DebugStr("\pCreateMovieFile Failed in PutMovieToFile");
  365.         }
  366.     }
  367.     else 
  368.       if (theErr = UpdateMovieResource( (*wHndl)->wMovie, (*wHndl)->wFileInfo.resFile, 
  369.                                     (*wHndl)->wFileInfo.moovID, nil))
  370.         DebugStr("\pPutMovieToFile: UpdateMovieResource failed");
  371.  
  372.     UseResFile(resFile);
  373.     return (theErr);
  374. }